eda-erick-lab2-cp1

Breaking Bad: a obra-prima da AMC?

Em 2013 foi ao ar Felina, o último episódio de Breaking Bad. Como um dos maiores fenômenos da cultura pop, a aclamada série de TV juntou uma legião de fãs ao redor do mundo, se consagrando como uma das maiores apostas da AMC ficando ao lado de outros gigantes da emissora como Mad Men e The Walking Dead. Mas seria ela realmente a mais bem avaliada, ou até mesmo a mais vista? Uma análise rápida nos dados do IMDB talvez seja capaz de responder essas perguntas.

Serão usados dados das séries The Killing, Mad Men, Breaking Bad e Turn. Séries como Preacher e The Walking Dead não farão parte da análise pois ainda estão sendo produzidas.

AMC <- read_csv(here("data/series_from_imdb.csv"), 
                    progress = FALSE,
                    col_types = cols(.default = col_double(), 
                                     series_name = col_character(), 
                                     episode = col_character(), 
                                     url = col_character(),
                                     season = col_character())) %>%
        filter(series_name %in% c("Breaking Bad", "Mad Men", "The Killing", "Turn"))

Notas

Primeiro vamos analisar as avaliações dos episódios para cada uma das séries.

ggplotly(AMC %>%
            ggplot(aes(x = series_ep, y = user_rating, color = r10)) +
            geom_point(alpha = .5) +
            facet_wrap(~series_name) +
            scale_color_viridis() +
            theme_bw() +
            labs(x = "episode", y = "rating"),
            tooltip = c("x", "y"))

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
replacing previous import by ‘Rcpp::evalCpp’ when loading ‘later’replacing previous import by ‘shiny::validateCssUnit’ when loading ‘crosstalk’replacing previous import by ‘shiny::br’ when loading ‘crosstalk’replacing previous import by ‘shiny::tags’ when loading ‘crosstalk’replacing previous import by ‘shiny::div’ when loading ‘crosstalk’replacing previous import by ‘shiny::h1’ when loading ‘crosstalk’replacing previous import by ‘shiny::h2’ when loading ‘crosstalk’replacing previous import by ‘shiny::h3’ when loading ‘crosstalk’replacing previous import by ‘shiny::h4’ when loading ‘crosstalk’replacing previous import by ‘shiny::h5’ when loading ‘crosstalk’replacing previous import by ‘shiny::h6’ when loading ‘crosstalk’replacing previous import by ‘shiny::knit_print.html’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagSetChildren’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeScript’ when loading ‘crosstalk’replacing previous import by ‘shiny::em’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagAppendChild’ when loading ‘crosstalk’replacing previous import by ‘shiny::is.singleton’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeHTML’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeMarkdown’ when loading ‘crosstalk’replacing previous import by ‘shiny::code’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagList’ when loading ‘crosstalk’replacing previous import by ‘shiny::a’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagAppendAttributes’ when loading ‘crosstalk’replacing previous import by ‘shiny::singleton’ when loading ‘crosstalk’replacing previous import by ‘shiny::hr’ when loading ‘crosstalk’replacing previous import by ‘shiny::p’ when loading ‘crosstalk’replacing previous import by ‘shiny::suppressDependencies’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagAppendChildren’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeText’ when loading ‘crosstalk’replacing previous import by ‘shiny::pre’ when loading ‘crosstalk’replacing previous import by ‘shiny::span’ when loading ‘crosstalk’replacing previous import by ‘shiny::withTags’ when loading ‘crosstalk’replacing previous import by ‘shiny::htmlTemplate’ when loading ‘crosstalk’replacing previous import by ‘shiny::img’ when loading ‘crosstalk’replacing previous import by ‘shiny::tag’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeCSS’ when loading ‘crosstalk’replacing previous import by ‘shiny::knit_print.shiny.tag’ when loading ‘crosstalk’replacing previous import by ‘shiny::knit_print.shiny.tag.list’ when loading ‘crosstalk’replacing previous import by ‘shiny::strong’ when loading ‘crosstalk’replacing previous import by ‘shiny::HTML’ when loading ‘crosstalk’

Mad Men é a maior série dentre as 4, totalizando mais de 75 episódios, porém junto com The Killing ela é série com uma das menores proporções de notas 10 e com uma grande quantidade de episódios com nota inferior a 8.5. Breaking Bad, por outro lado figura como a série com maior proporção de notas 10, e com as notas mais altas entre as outras, no entanto seus dados são muito espaçados indicando que a qualidade dos episódios nem sempre segue um padrão crescente.

A que mais se destaca é Turn, seu gráfico se assemelha bastante a uma reta crescente e com dados pouco espaçados, o que nos diz que ela manteve uma qualidade que foi aumentando com o passar dos episódios, colecionando apenas alguns pequenos deslizes aqui e ali.

Avaliações

Agora analisaremos a quantidade de votos pra cada uma das séries.

ggplotly(AMC %>%
         ggplot(aes(x = series_ep, y = user_votes, color = series_name)) +
         geom_line() +
         labs(x = "episode", y = "votes"))    

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`

Uma coisa interessante de se notar considerando esse gráfico e o anterior é que as séries com notas menores, Mad Men e The Killing, tem uma quantidade baixíssima de avaliações. Isso foi uma supresa pra mim, pois Mad Men já ganhou diversas premiações e achei que ela fosse figurar no topo com as melhores notas e maiores votos.

Por outro lado, mesmo tendo um desempenho excelente a série Turn quase não foi avaliada pelos usuários do IMDB, ao contrário de Breaking Bad, que teve o gráfico de dispersão mais próximo ao dela. A quantidade de avaliações de Breaking Bad é muito irregular e sofreu a maior variação nos 3 últimos episódios, o que ao meu ver é estranho pois imaginei que os três últimos fossem ter uma quantidade de avaliações crescente.

Temporadas

Por fim, e não menos importante, analisaremos as notas médias de cada série por temporada.

ggplotly(AMC %>%
            group_by(series_name, season) %>%
            summarise(season_rating = round(mean(user_rating), 2)) %>%
            ggplot(aes(x = season, y = season_rating, group = series_name, color = series_name)) +
            geom_point() +
            geom_line() +
            labs(y = "Rating", x = "Season"), 
            tooltip = c("y"))

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`

The Killing e Turn são as únicas śeries que foram capazes de manter uma qualidade sempre crescente entre todas as temporadas, porém as notas de The Killing são bem mais baixas, se equiperando com as de Mad Men. Breaking Bad figura com a melhor nota entre todas, na sua última temporada, porém sua qualidade se assemelha mais a uma curva (com um deslize na terceira temporada).

Conclusão

Turn foi a série com o melhor desempenho nas suas notas, de acordo com as avaliações do IMDB, porém o fato dela ter tido poucas avaliações me gerou dúvidas? Será que com mais avaliações ela realmente teria tido um desempenho tão bom entre os episódios? Provavelmente, mais avaliações poderiam gerar mais espaçamento nas notas.

Breaking Bad certamente caiu nas graças do público e mesmo com um espaçamento considerável nas suas notas, ela teve ótimos resultados, tendo a maior avaliação pra uma temporada (9.38).

The Killing e Mad Men não tiveram tantas avaliações quanta as outras e suas notas foram mais baixas, porém The Killing foi capaz de manter um aumento nas suas notas por temporadas crescente.